$PBExportHeader$uo_tp_dw_carreras_plan.sru
forward
global type uo_tp_dw_carreras_plan from uo_tp_dw_filtro
end type
end forward

global type uo_tp_dw_carreras_plan from uo_tp_dw_filtro
end type
global uo_tp_dw_carreras_plan uo_tp_dw_carreras_plan

forward prototypes
public function string uof_planes_selecc (boolean ab_check)
end prototypes

public function string uof_planes_selecc (boolean ab_check);STRING ls_selecc, ls_estado
INTEGER li_Fila, li_Control, li_fin

li_Control = 1
li_fin = dw_1.RowCount()

//# Seleccionar los de estado:
IF ab_check &
THEN
	ls_estado = '1'
ELSE
	ls_estado = '0'
END IF

//# Recorrer la dw. e ir colocando las carreras seleccionadas en el Array.
FOR li_fila = 1 TO li_fin
	IF dw_1.uof_GetItem(li_fila,'estado') = ls_estado &
	THEN
		ls_selecc = ls_selecc  + dw_1.uof_GetItem(li_fila,3) + '~t'
	END IF
NEXT

RETURN ls_selecc
end function

on uo_tp_dw_carreras_plan.create
call super::create
end on

on uo_tp_dw_carreras_plan.destroy
call super::destroy
end on

type dw_1 from uo_tp_dw_filtro`dw_1 within uo_tp_dw_carreras_plan
string DataObject="d_filtro_carreras_plan"
end type

type pb_todos from uo_tp_dw_filtro`pb_todos within uo_tp_dw_carreras_plan
boolean BringToTop=true
end type

type pb_ninguno from uo_tp_dw_filtro`pb_ninguno within uo_tp_dw_carreras_plan
boolean BringToTop=true
end type

type pb_invertir from uo_tp_dw_filtro`pb_invertir within uo_tp_dw_carreras_plan
boolean BringToTop=true
end type

